home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / surfmodl / surfm203.arc / SURFSRC.ARC / TITLESCR.INC < prev    next >
Encoding:
Text File  |  1987-01-09  |  1010 b   |  22 lines
  1. procedure TITLESCREEN;
  2. begin
  3.   Clrscr;
  4.   writeln('    This is SURFMODL, a public domain surface modeling program.');
  5.   writeln('SURFMODL is distributed without any warranty, express or implied.');
  6.   writeln('In no event shall the authors be liable for any loss of profit or');
  7.   writeln('any other commercial damage, including but not limited to');
  8.   writeln('special, incidental, consequential or other damages.');
  9.   writeln;
  10.   writeln('SURFMODL may be freely distributed, or distributed at nominal');
  11.   writeln('copying/mailing fee, but may not be otherwise charged for.');
  12.   writeln('It may not be distributed with commercial software without');
  13.   writeln('express written permission of the principle author:');
  14.   writeln('  Kenneth Van Camp');
  15.   writeln('  P.O. Box 784');
  16.   writeln('  Stroudsburg, PA  18360');
  17.   writeln;
  18.   writeln ('Press any key...');
  19.   repeat until keypressed;
  20.   while keypressed do if (readkey = ' ') then; {clear keyboard buffer}
  21. end; { procedure TITLESCREEN }
  22.